gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\editrevert.asp

    <!--#include file="Include/LiangjingConn.asp"-->
<!--#include file="Include/Function.asp"-->
<!--#include file="Include/Cls_Class2.asp"-->
<%
	Src_ID = Request("Src_ID")
	Re_ID  = Request("Re_ID")
	action = Request.Form("action")

	if Session("_WUserID") = "" then
		Response.Redirect("login.asp?Page=reSrcShow.asp||Src_ID$"&Src_ID)
	end if
	
	if Src_ID = "" or Re_ID = "" or IsNumerIC(Src_ID)=false then
		Response.Redirect("index.asp")
		Response.End()
	end if
	Set Rs = Server.CreateObject("Adodb.recordset")
	
	if action = "EditRev" then
		Sql = "Select * from Liangjing_SrcRevert Where Re_ID="&Re_ID
		if Session("_WIsSupper") = false then	'如果不是管理员，就应该对资源回复的所有人进行判断
			Sql = Sql & " and Re_UserID="&Session("_WUserID")
		end if

		Rs.open Sql,conn,1,2
		if not Rs.eof then
				Rs("Re_Content") = Request("Rev_Content")
				Rs("Re_ModifyTime") = Now()
				Rs("Re_IP") = Request.ServerVariables("REMOTE_ADDR")
			Rs.Update
			Rs.Close
			Set Rs = Nothing
		else
			Call MsgBox2("无法找到该资源的回复！",0,"0")
			Response.End()
		end if		
		Response.Redirect("SrcShow.asp?Src_ID="&Src_ID)
		Response.End()
	end if	
	
	Sql = "SELECT Src_Title FROM Liangjing_Source Where Src_IsOver=false and src_ID="&Src_ID
	Rs.open Sql,conn
	if Rs.eof then
		Call MsgBox2("此资源不能被找到。。！",0,"0")
		Response.End()
	else
		Src_Title = Rs("Src_Title")	
	end if
	Rs.Close
	Set Rs = Nothing
%>
<!--#include file="Include/header.asp"-->
</div>
<%Response.Write("<div id=""headRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>")%>
<script language="javascript">
<!--
	function frm_onsubmit(frm){
		var frm = eval(frm);
		if(frm.rev_content.value==""){
			alert("请输入要您回复的内容！");
			frm.rev_content.focus();
			return false;
		}
		if(frm.rev_content.value.length<10){
			alert("回复内容不能少于10个字");
			frm.rev_content.focus();
			return false;
		}
		if(confirm("您确定要编辑此回复吗？")){
			return true;
		}
		return false;
	}
-->
</script>
<div id="mainWrapper" class="clear" style="min-height:260px;background:#C9F1FF;);">
	<div class="wording">
	</div>
	<div class="loginBox">
	<%
	Set EditRevert2 = New Cls_EditRevert
	Call EditRevert2.Get_EditRevert
	Set EditRevert2 = Nothing
    %>
	<br />
	</div>
</div>
<%Response.Write("<div id=""footRound"" class=""clear""><span class=""left""></span><span class=""right""></span></div>"&vbcr)%>
<!--#include file="Include/footer.asp"-->